program e x e m p l o  c o n d i c i o n a l 3 ;
var
n : integer ;
begin
writeln ( ’Informe um numero inteiro positivo : ’ ) ;
read ( n ) ;
i f ( n mod 2 ) = 0 then
writeln ( ’O numero ’ , n , ’ eh par.’ )
else
writeln ( ’O numero ’ , n , ’ eh impar .’ ) ;
writeln ( ’fim ’ ) ;
end .


